home *** CD-ROM | disk | FTP | other *** search
/ Retro Gamer 16 / Retro Gamer 16.iso / Retro.exe / Retro.DXR / 00016.ls < prev    next >
Encoding:
Text File  |  2005-04-18  |  1.1 KB  |  44 lines
  1. global titleblend
  2.  
  3. on exitFrame me
  4.   case titleblend of
  5.     1:
  6.       if sprite(22).blend < 100 then
  7.         sprite(22).blend = sprite(22).blend + 2
  8.       else
  9.         if sprite(22).blend >= 100 then
  10.           titleblend = 2
  11.         end if
  12.       end if
  13.     2:
  14.       if (sprite(21).blend < 100) and (sprite(23).blend < 100) then
  15.         sprite(21).blend = sprite(21).blend + 2
  16.         sprite(23).blend = sprite(23).blend + 2
  17.       else
  18.         if (sprite(21).blend >= 100) and (sprite(23).blend >= 100) then
  19.           titleblend = 3
  20.         end if
  21.       end if
  22.     3:
  23.       if (sprite(20).blend < 100) and (sprite(24).blend < 100) then
  24.         sprite(20).blend = sprite(24).blend + 2
  25.         sprite(24).blend = sprite(24).blend + 2
  26.       else
  27.         if (sprite(20).blend >= 100) and (sprite(24).blend >= 100) then
  28.           titleblend = 4
  29.         end if
  30.       end if
  31.     4:
  32.       if sprite(19).blend < 100 then
  33.         sprite(19).blend = sprite(19).blend + 2
  34.       else
  35.         if sprite(19).blend >= 100 then
  36.           titleblend = 5
  37.         end if
  38.       end if
  39.     5:
  40.       go(3)
  41.   end case
  42.   go(the frame)
  43. end
  44.